home *** CD-ROM | disk | FTP | other *** search
/ Megahits 5 / Megahits 5 (1994)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / archive / print / sas6post.lha / postinit.c.diff < prev    next >
Text File  |  1993-03-14  |  2KB  |  100 lines
  1. 33c33
  2. < extern struct UFB _ufbs[];
  3. ---
  4. > /* extern struct UFB _ufbs[];*/
  5. 52a53,57
  6. > #ifdef _IEEE
  7. > struct Library *MathIeeeDoubBasBase;
  8. > struct Library *MathIeeeDoubTransBase;
  9. > #endif
  10. > 
  11. 109c114,145
  12. < {   memcpy((char *) &page, (char *) &parm->page, sizeof page);
  13. ---
  14. > {
  15. > #ifdef __SASC_60
  16. >     extern struct UFB __ufbs3[3];
  17. > 
  18. >     __ufbs3[0].ufbnxt = &__ufbs3[1];
  19. >     __ufbs3[1].ufbnxt = &__ufbs3[2];
  20. >     __ufbs3[2].ufbnxt = NULL;
  21. >     __ufbs3[0].ufbfn = NULL;
  22. >     __ufbs3[1].ufbfn = NULL;
  23. >     __ufbs3[2].ufbfn = NULL;
  24. >     __ufbs3[0].ufbflg = UFB_RA | O_RAW | UFB_NC;
  25. >     __ufbs3[1].ufbflg = UFB_WA | O_RAW | UFB_NC;
  26. >     __ufbs3[2].ufbflg = UFB_WA | O_RAW | UFB_NC;
  27. >     __ufbs = &__ufbs3[0];
  28. > #endif
  29. > 
  30. > #ifdef _IEEE
  31. >     MathIeeeDoubBasBase   = OpenLibrary("mathieeedoubbas.library", 33L);
  32. >     if(!MathIeeeDoubBasBase)
  33. >     {
  34. >         return(0);
  35. >     } /* if */
  36. > 
  37. >     MathIeeeDoubTransBase = OpenLibrary("mathieeedoubtrans.library", 33L);
  38. >     if(!MathIeeeDoubTransBase)
  39. >     {
  40. >         CloseLibrary(MathIeeeDoubBasBase);
  41. >         MathIeeeDoubBasBase = NULL;
  42. >         return(0);
  43. >     } /* if */
  44. > 
  45. > #endif
  46. 110a147,148
  47. >     memcpy((char *) &page, (char *) &parm->page, sizeof page);
  48. > 
  49. 120,125c158,169
  50. <     _ufbs[0].ufbfh = (long) parm->infh;
  51. <     _ufbs[0].ufbflg |= UFB_RA|O_RAW|UFB_NC;
  52. <     _ufbs[1].ufbfh = (long) parm->outfh;
  53. <     _ufbs[1].ufbflg |= UFB_WA|O_RAW|UFB_NC;
  54. <     _ufbs[2].ufbfh = (long) parm->errfh;
  55. <     _ufbs[2].ufbflg |= UFB_WA|O_RAW|UFB_NC;
  56. ---
  57. > 
  58. >     __ufbs[0].ufbfh = (long) parm->infh;
  59. >     __ufbs[0].ufbflg |= UFB_RA|O_RAW|UFB_NC;
  60. >     __ufbs[1].ufbfh = (long) parm->outfh;
  61. >     __ufbs[1].ufbflg |= UFB_WA|O_RAW|UFB_NC;
  62. >     __ufbs[2].ufbfh = (long) parm->errfh;
  63. >     __ufbs[2].ufbflg |= UFB_WA|O_RAW|UFB_NC;
  64. > 
  65. > #ifdef __SASC_60
  66. >     __nufbs += 3;
  67. > #endif
  68. > 
  69. 181a226,240
  70. > 
  71. > #ifdef _IEEE
  72. >     if(MathIeeeDoubBasBase)
  73. >     {
  74. >         CloseLibrary(MathIeeeDoubBasBase);
  75. >         MathIeeeDoubBasBase = NULL;
  76. >     } /* if */
  77. > 
  78. >     if(MathIeeeDoubTransBase)
  79. >     {
  80. >         CloseLibrary(MathIeeeDoubTransBase);
  81. >         MathIeeeDoubTransBase = NULL;
  82. >     } /* if */
  83. > #endif
  84. > 
  85. 249c308,309
  86. < void stub(void)
  87. ---
  88. > /*
  89. > void __stdargs _stub(void)
  90. 251a312
  91. > */
  92. 255c316
  93. < void chkabort(void)
  94. ---
  95. > void __chkabort(void)
  96. 261c322
  97. < void CXFERR(int code)
  98. ---
  99. > void __stdargs _CXFERR(int code)
  100.